MacWorld: Super Stacks!/Macworld CD.iso/HyperCard Archives/International/French v1.2.5.1/Piles principales/Téléphone/stack_-1.xml

Extensible Markup Language | 1989-09-15 | 4KB | 16 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>1</cardCount>
    <cardID>3103</cardID>
    <listID>2607</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>-- copyright Apple Computer France-- Olivier Malandraon idleif the short time ≠ field "Heure"then put the short time into field "Heure"pass idleend idleon openStackglobal EtatMessageBoxput the visible of message box into EtatMessageBoxpush recent cardput emptyend openStackon closeStackglobal EtatMessageBoxset the visible of message box to EtatMessageBoxend closeStackon dial chaînerepeat with i = 1 to 4send closeField to field iend repeatglobal numéro,numéroEntierput chaîne into numéroif numéro is empty then exit dialanalyseNuméroif the hilite of button "Non" is true thennuméroter field "Extérieur" & numéroexit dialend ifput numéro into numéroEntierif first char of numéro = first char of field "Extérieur"then delete first char of numéroif (the length of numéro = 2) or (the length of numéro = 8) thennuméroter field "Extérieur" & numéroexit dialend ifif the length of numéro < 8 thennuméroter numéroexit dialend ifif char 1 to 2 of numéro = "19" thencomposerInternationalexit dialend ifif char 1 to 2 of numéro = "16" thenif the length of numéro = 9 thenparisProvinceexit dialend ifdelete char 1 to 2 of numéroif the length of numéro = 8 thennuméroter field "Extérieur" & field "Paris-Province" & numéroexit dialelse if (the length of numéro = 9 and first char of numéro = 1) thendelete first char of numéronuméroter field "Extérieur" & field "Province-Paris" & numéroexit dialelsenuméroParDéfautexit dialend ifend ifif the length of numéro > 9 thencomposerInternationalexit dialend ifif (first char of numéro = "1") thenparisProvinceexit dialend ifend dialon parisProvinceglobal numérodelete first char of numéroif the length of numéro <> 8 thennuméroParDéfautexit parisProvinceelseanswer "Téléphoner de la Province vers Paris ?" with "Non" or "Oui"if it is "Oui"then numéroter field "Extérieur" & field "Province-Paris" & numéroend ifend parisProvinceon composerInternationalput "Recherche du pays en cours..."set lockMessages to trueset lockScreen to trueglobal numéroif char 1 to 2 of numéro = "19" then delete char 1 to 2 of numéropush this cardgo to stack "Codes régionaux"find char 1 of numéro in field "Indicatif pays"if the result is empty thenif char 2 of field "Indicatif pays" is not empty thenfind char 1 to 2 of numéro in field "Indicatif pays"if the result is empty thenif char 3 of field "Indicatif pays" is not empty thenfind char 1 to 3 of numéro in field "Indicatif pays"if the result is "not found" thennuméroParDéfautexit composerInternationalelsenuméroPaysexit composerInternationalend ifelsenuméroPaysexit composerInternationalend ifelsenuméroParDéfautexit composerInternationalend ifelsefind char 2 to 4 of numéro in field "Indicatif régional"numéroPaysexit composerInternationalend ifelsenuméroParDéfautexit composerInternationalend ifend composerInternationalon numéroParDéfautglobal numéro,numéroEntieranswer "Le numéro "&quote&numéroEntier&quote& " n'a pas été reconnu." ¬with "Renoncer" or "Composer"if it is "Renoncer" thenput emptypop cardset lockscreen to falseset lockmessages to falseexit numéroParDéfautelseput emptypop cardnuméroter field "Extérieur" & numéroend ifend numéroParDéfauton numéroPaysglobal numéroanswer "pays de destination : "&field "Pays"&" ?" with "Non" or "Oui"pop cardset lockscreen to falseset lockmessages to falseput emptyif it is "Oui"then numéroter field "Extérieur" & field "International" &